home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / _u_ / u f o / bilder next >
Text File  |  1994-12-23  |  6KB  |  249 lines
  1. CONST
  2.         { Wir definieren eine Farbtabelle mit 8 Farben für LoadRGB4 }
  3.  
  4.         Farbtabelle : array[1..8] of short =
  5. (                     $0000, { Schwarz }
  6.                       $0ECA, { Grau    }
  7.                       $044F, { Blau    }
  8.                       $0F00, { Rot     }
  9.                       $0F0C, { Violett }
  10.                       $07FB, { Türkis  }
  11.                       $0FE0, { Gelb    }
  12.                       $00F0  { Grün    }
  13. );
  14.  
  15.         ImageDataAstronaut : array[1..30] of short =
  16. (
  17.         $1F00,$3F80,$60C0,$3F80,$1F00,$1100,$0000,$1100,
  18.         $1100,$0000,$0000,$0000,$0000,$0000,$0000,$CE60,
  19.         $3F80,$0E00,$0E00,$3180,$0000,$0000,$0000,$0000,
  20.         $0000,$1100,$0000,$1100,$1100,$4040
  21. );
  22.  
  23.         ImageAstronaut : Image =
  24. (
  25.         0,
  26.         0,
  27.         11,
  28.         10,
  29.         3,
  30.         Nil,
  31.         $07,
  32.         $00,
  33.         Nil
  34. );
  35.  
  36.         ImageDataAtomium : array[1..66] of short =
  37. (
  38.         $0000,$0000,$0000,$0000,$0000,$0000,$0306,$0000,
  39.         $70D8,$7000,$F800,$F800,$70D8,$7000,$0306,$0000,
  40.         $0000,$0000,$0000,$0000,$0000,$0000,$1C71,$C000,
  41.         $3EFB,$E000,$1C71,$C000,$0306,$0000,$00D8,$0000,
  42.         $0000,$0000,$00D8,$0000,$0306,$0000,$1C71,$C000,
  43.         $3EFB,$E000,$1C71,$C000,$1C01,$C000,$3E03,$E000,
  44.         $1C01,$C000,$0326,$0000,$70F8,$7000,$FFFF,$F800,
  45.         $70F8,$7000,$0326,$0000,$1C01,$C000,$3E03,$E000,
  46.         $1C01,$C000
  47. );
  48.  
  49.         ImageAtomium : Image =
  50. (
  51.         0,
  52.         0,
  53.         21,
  54.         11,
  55.         3,
  56.         Nil,
  57.         $07,
  58.         $00,
  59.         Nil
  60. );
  61.  
  62.         ImageDataFragezeichen : array[1..39] of short =
  63. (
  64.         $FFF8,$FFF8,$F0F8,$E678,$FE78,$FCF8,$F9F8,$FFF8,
  65.         $F9F8,$FFF8,$FFF8,$FFF8,$FFF8,$FFF8,$FFF8,$F0F8,
  66.         $E678,$FE78,$FCF8,$F9F8,$FFF8,$F9F8,$FFF8,$FFF8,
  67.         $FFF8,$FFF8,$0000,$7FF0,$70F0,$6670,$7E70,$7CF0,
  68.         $79F0,$7FF0,$79F0,$7FF0,$7FF0,$7FF0,$0000
  69. );
  70.  
  71.         ImageFragezeichen : Image =
  72. (
  73.         0,
  74.         0,
  75.         13,
  76.         13,
  77.         3,
  78.         Nil,
  79.         $07,
  80.         $00,
  81.         Nil
  82. );
  83.  
  84.         ImageDataTankstelle : array[1..20] of short =
  85. (
  86.         $FFFC,$8007,$8005,$8005,$8007,$FFFC,$3FF0,$3FF0,
  87.         $3FF0,$3FF0,$0000,$7FF8,$6458,$7FF8,$7278,$0000,
  88.         $1FE0,$1FE0,$1FE0,$0000
  89. );
  90.  
  91.         ImageTankstelle : Image =
  92. (
  93.         0,
  94.         0,
  95.         16,
  96.         10,
  97.         2,
  98.         Nil,
  99.         $03,
  100.         $00,
  101.         Nil
  102. );
  103.  
  104.         ImageDataEieruhr : array[1..24] of short =
  105. (
  106.         $FFFC,$FFFC,$9FE4,$8784,$8784,$9FE4,$FFFC,$FFFC,
  107.         $0000,$7FF8,$7FF8,$7FF8,$7FF8,$7FF8,$7FF8,$0000,
  108.         $0000,$0000,$6018,$7878,$7878,$6018,$0000,$0000
  109. );
  110.  
  111.         ImageEieruhr : Image =
  112. (
  113.         0,
  114.         0,
  115.         14,
  116.         8,
  117.         3,
  118.         Nil,
  119.         $07,
  120.         $00,
  121.         Nil
  122. );
  123.  
  124.         ImageDataSchiff : array[1..48] of short =
  125. (
  126.         $0000,$0000,$0000,$0000,$0000,$0000,$7F1F,$8000,
  127.         $7F1F,$8000,$0000,$0000,$0000,$0000,$0000,$0000,
  128.         $81E0,$4000,$87F8,$4000,$9FFE,$4000,$8000,$4000,
  129.         $8000,$4000,$9FFE,$4000,$87F8,$4000,$81E0,$4000,
  130.         $8000,$4000,$8000,$4000,$8000,$4000,$8000,$4000,
  131.         $8000,$4000,$8000,$4000,$8000,$4000,$8000,$4000
  132. );
  133.  
  134.         ImageSchiff : Image =
  135. (
  136.         0,
  137.         0,
  138.         18,
  139.         8,
  140.         3,
  141.         Nil,
  142.         $07,
  143.         $00,
  144.         Nil
  145. );
  146.  
  147.         ImageDataFalle : array[1..40] of short =
  148. (
  149.         $FFFF,$F000,$FFF8,$F000,$FFC7,$F000,$FE3F,$F000,
  150.         $F1FF,$F000,$F007,$F000,$FE3F,$F000,$F1FF,$F000,
  151.         $CFFF,$F000,$FFFF,$F000,$FFFF,$F000,$FFF8,$F000,
  152.         $FFC7,$F000,$FE3F,$F000,$F1FF,$F000,$F007,$F000,
  153.         $FE3F,$F000,$F1FF,$F000,$CFFF,$F000,$FFFF,$F000
  154. );
  155.  
  156.         ImageFalle : Image =
  157. (
  158.         0,
  159.         0,
  160.         20,
  161.         10,
  162.         2,
  163.         NIL,
  164.         $03,
  165.         $00,
  166.         NIL
  167. );
  168.  
  169.         ImageDataExplosion1 : array[1..78] of short =
  170. (
  171.         $0000,$0000,$0080,$0000,$0009,$0000,$0081,$1000,
  172.         $0020,$4000,$0040,$2000,$0004,$0000,$1080,$2000,
  173.         $4080,$0800,$0000,$0000,$0120,$2000,$0020,$6000,
  174.         $0000,$0000,$0010,$0000,$00CA,$0000,$0089,$0000,
  175.         $01AD,$3200,$0264,$5200,$1964,$A800,$0584,$1000,
  176.         $5088,$2C00,$4481,$8800,$0044,$CC00,$0568,$A800,
  177.         $00A1,$E000,$04D4,$4000,$0010,$0000,$0042,$0000,
  178.         $0080,$0000,$0120,$2200,$0244,$0200,$0824,$0000,
  179.         $0480,$0000,$4008,$0000,$0400,$8000,$0040,$8800,
  180.         $0008,$8800,$0081,$8000,$04C0,$4000
  181. );
  182.  
  183.         ImageExplosion1 : Image =
  184. (
  185.         0,
  186.         0,
  187.         23,
  188.         13,
  189.         3,
  190.         NIL,
  191.         $07,
  192.         $00,
  193.         NIL
  194. );
  195.  
  196.         ImageDataExplosion2 : array[1..78] of short =
  197. (
  198.         $0800,$0000,$0200,$0000,$0000,$0000,$0000,$0000,
  199.         $0000,$0000,$0000,$8000,$0000,$1000,$0000,$0000,
  200.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  201.         $0000,$0000,$8802,$0000,$0200,$0000,$1EC8,$9000,
  202.         $2400,$8000,$0000,$8200,$4000,$8000,$4044,$D000,
  203.         $C422,$0000,$0010,$8200,$0400,$2200,$8880,$2000,
  204.         $0201,$0000,$0000,$0000,$0002,$0000,$0000,$0000,
  205.         $0640,$1000,$2000,$8000,$0000,$8200,$4000,$0000,
  206.         $4000,$8000,$8020,$0000,$0010,$0200,$0400,$2200,
  207.         $0880,$0000,$0000,$0000,$0000,$0000
  208. );
  209.  
  210.         ImageExplosion2 : Image =
  211. (
  212.         0,
  213.         0,
  214.         23,
  215.         13,
  216.         3,
  217.         NIL,
  218.         $07,
  219.         $00,
  220.         NIL
  221. );
  222.  
  223.         ImageDataExplosion3 : array[1..78] of short =
  224. (
  225.         $0000,$0000,$4040,$0000,$0000,$0000,$0000,$8000,
  226.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$2000,
  227.         $0800,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  228.         $0002,$0000,$0000,$0000,$2000,$0000,$0000,$0000,
  229.         $0000,$0000,$0000,$0000,$0000,$0000,$2000,$0000,
  230.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  231.         $0000,$0000,$0000,$0000,$0000,$0000,$2000,$0000,
  232.         $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  233.         $2000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  234.         $0000,$0000,$0000,$0000,$0000,$0000
  235. );
  236.  
  237.         ImageExplosion3 : Image =
  238. (
  239.         0,
  240.         0,
  241.         23,
  242.         13,
  243.         3,
  244.         NIL,
  245.         $07,
  246.         $00,
  247.         NIL
  248. );
  249.